home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / short / chr.bas next >
BASIC Source File  |  1994-10-10  |  415b  |  17 lines
  1. 100 COLOR 7,0,,4:CLS
  2. 110 K=&H60
  3. 120 'K=ASC("")
  4. 130 FOR B=0 TO &H60 STEP &H60
  5. 140   FOR C=&H80 TO &H9F
  6. 150     A$=CHR$(B+C,K)
  7. 160     IF KTYPE(A$,1) THEN PRINT"&H";HEX$(B+C);" ";A$;" ";:D=D+1
  8. 170   NEXT
  9. 180 NEXT
  10. 190 PRINT
  11. 200 IF D THEN
  12. 210   PRINT"２バイト目が&H";HEX$(K);"の日本語文字は";D;"個ありました。"
  13. 220 ELSE
  14. 230   PRINT"２バイト目が&H";HEX$(K);"の日本語文字はありません。"
  15. 240 ENDIF
  16. 250 END
  17.